Option Explicit
Sub O_Sample008()
    Dim myMdl   As VBIDE.CodeModule
    Dim myStRow As Long
    Dim myStCol As Long
    Dim myEdRow As Long
    Dim myEdCol As Long
    Dim myRet   As Boolean
    Set myMdl = ThisWorkbook.VBProject _
        .VBComponents("Module1").CodeModule
    With myMdl
        myEdRow = 0
        myStCol = 1
        Do
            myStRow = myEdRow + 1
            myStCol = 1
            myEdRow = .CountOfLines
            myEdCol = Len(.Lines(.CountOfLines, 1))
            'wnjMr
            myRet = .Find("End", myStRow, myStCol, myEdRow, myEdCol)
            If myRet = False Then Exit Do
            Debug.Print myStRow & ":  " & _
                Trim(.Lines(myStRow, myEdRow - myStRow + 1))
        Loop While myStRow < .CountOfLines
    End With
    Set myMdl = Nothing					'
End Sub
